bootdefs.mesa 24-0CT-77 21:15:31 Page 1 



— BootDefs.Mesa Edited by Sandman on July 22, 1977 2:18 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDefs: FROM "al tof iledefs", 
SegmentDefs: FROM "segmentdef s"; 

DEFINITIONS FROM SegmentDefs; 

BootDefs: DEFINITIONS SHARES SegmentDefs = BEGIN 

— Boot Primative Objects 

BootDataSegment: PROCEDURE [base: PageNumber, pages: PageCount] 

RETURNS [seg: DataSegmentHandle]; 
BootFileSegment: PROCEDURE [file: FileHandle, base: PageNumber, 

pages: PageCount, access: AccessOptions , addr: POINTER] 

RETURNS [seg: FileSegmentHandle] ; 
BootFile: PROCEDURE [access: AccessOptions] RETURNS [file: FileHandle]; 

-- Free Objects 

Frob: TYPE = Free Object; 
FrobHandle: TYPE = POINTER TO Frob; 

— Primative Object Tables 

TableHandle: TYPE = POINTER TO Table; 

Table: TYPE = RECORD [ 
size: CARDINAL, 
link: SubTableHandle] ; 

SubTableHandle: TYPE = POINTER TO SubTable; 

SubTable: TYPE = RECORD [ 
link: SubTableHandle, 
free: FrobHandle, 
seal, alloc: Al toDef s . BYTE, 
seg: DataSegmentHandle]; 

SystemTable: TYPE = RECORD [ 

pagemap: POINTER TO ARRAY [0..15] OF WORD, 
datasegs, filesegs, files: TableHandle]; 

SystemTableHandle: TYPE = POINTER TO SystemTable; 

— Table Management 

GetPageMap: PROCEDURE RETURNS [POINTER]; 
GetFileTable: PROCEDURE RETURNS [TableHandle]; 
GetFileSegmentTable: PROCEDURE RETURNS [TableHandle]; 
GetDataSegmentTable: PROCEDURE RETURNS [TableHandle]; 
GetSystemTable: PROCEDURE RETURNS [SystemTableHandle]; 

-- Object Management 

InvalidObject: SIGNAL [table: TableHandle, object: POINTER]; 
AllocateObject: PROCEDURE [table: TableHandle] RETURNS [Ob jectHandle] ; 
LiberateObject: PROCEDURE [table: TableHandle, object: Ob jectHandle] ; 
Val idateObject: PROCEDURE [table: TableHandle, object: ObjectHandle]; 
EnumerateObjects: PROCEDURE [table: TableHandle, 

proc: PROCrDURr [ObjectHandle] RETURNS [BOOLEAN]] 

RETURNS [object: ObjectHandle]; 

-- File Length Operations 

Normal izeT ileTndex: PROCTDURr [page: PageNumber, byte: CARDINAL] 

RETURNS [PageNumber, CARDINAL]; 
RoundFilelndex: PROCTDURr [page: PageNumber, byte: CARDINAL] 

RETURNS [PageNumber, CARDINAL]; 
TruncaLeF ileTndex: PROCEDURE [page: PageNumber, byte: CARDINAL] 

RETURNS [PageNumber, CARDINAL]; 

-- File Segment Positioning 
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FindSegHint: PROCEDURE [seg: FileSegmentHandle] ; 

PositionSeg: PROCEDURE [seg: FileSegmentHandle, useseg: BOOLEAN] RETURNS [BOOLEAN]; 

MapVM: PROCEDURE [seg: FileSegmentHandle, dc: AltoFileDefs . vDC]; 
END. 



